<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE CPP, MagicHash, NoImplicitPrelude, UnliftedFFITypes #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# OPTIONS_HADDOCK not-home #-}</span><span>
</span><span id="line-3"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span>
</span><span id="line-4"></span><span class="hs-comment">-- |</span><span>
</span><span id="line-5"></span><span class="hs-comment">-- Module      :  GHC.IntWord64</span><span>
</span><span id="line-6"></span><span class="hs-comment">-- Copyright   :  (c) The University of Glasgow, 1997-2008</span><span>
</span><span id="line-7"></span><span class="hs-comment">-- License     :  see libraries/ghc-prim/LICENSE</span><span>
</span><span id="line-8"></span><span class="hs-comment">--</span><span>
</span><span id="line-9"></span><span class="hs-comment">-- Maintainer  :  cvs-ghc@haskell.org</span><span>
</span><span id="line-10"></span><span class="hs-comment">-- Stability   :  internal</span><span>
</span><span id="line-11"></span><span class="hs-comment">-- Portability :  non-portable (GHC Extensions)</span><span>
</span><span id="line-12"></span><span class="hs-comment">--</span><span>
</span><span id="line-13"></span><span class="hs-comment">-- Primitive operations on Int64# and Word64# on platforms where</span><span>
</span><span id="line-14"></span><span class="hs-comment">-- WORD_SIZE_IN_BITS &lt; 64.</span><span>
</span><span id="line-15"></span><span class="hs-comment">--</span><span>
</span><span id="line-16"></span><span class="hs-comment">-----------------------------------------------------------------------------</span><span class="hs-cpp">

#include &quot;MachDeps.h&quot;
</span><span>
</span><span id="line-20"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.IntWord64</span><span> </span><span class="hs-special">(</span><span class="hs-cpp">
#if WORD_SIZE_IN_BITS &lt; 64
</span><span>        </span><span class="hs-identifier">Int64#</span><span class="hs-special">,</span><span> </span><span class="hs-identifier">Word64#</span><span class="hs-special">,</span><span> </span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.IntWord64</span><span class="hs-cpp">
#endif
</span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-25"></span><span>
</span><span id="line-26"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Types.html"><span class="hs-identifier">GHC.Types</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- Make implicit dependency known to build system</span><span class="hs-cpp">

#if WORD_SIZE_IN_BITS &lt; 64
</span><span>
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="hs-identifier">GHC.Prim</span><span>
</span><span id="line-31"></span><span>
</span><span id="line-32"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_eqWord64&quot;</span><span>    </span><span class="hs-identifier">eqWord64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-33"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_neWord64&quot;</span><span>    </span><span class="hs-identifier">neWord64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-34"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_ltWord64&quot;</span><span>    </span><span class="hs-identifier">ltWord64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-35"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_leWord64&quot;</span><span>    </span><span class="hs-identifier">leWord64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-36"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_gtWord64&quot;</span><span>    </span><span class="hs-identifier">gtWord64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-37"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_geWord64&quot;</span><span>    </span><span class="hs-identifier">geWord64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-38"></span><span>
</span><span id="line-39"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_eqInt64&quot;</span><span>     </span><span class="hs-identifier">eqInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-40"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_neInt64&quot;</span><span>     </span><span class="hs-identifier">neInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-41"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_ltInt64&quot;</span><span>     </span><span class="hs-identifier">ltInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-42"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_leInt64&quot;</span><span>     </span><span class="hs-identifier">leInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-43"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_gtInt64&quot;</span><span>     </span><span class="hs-identifier">gtInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-44"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_geInt64&quot;</span><span>     </span><span class="hs-identifier">geInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-45"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_quotInt64&quot;</span><span>   </span><span class="hs-identifier">quotInt64#</span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-46"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_remInt64&quot;</span><span>    </span><span class="hs-identifier">remInt64#</span><span>     </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-47"></span><span>
</span><span id="line-48"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_plusInt64&quot;</span><span>   </span><span class="hs-identifier">plusInt64#</span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-49"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_minusInt64&quot;</span><span>  </span><span class="hs-identifier">minusInt64#</span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-50"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_timesInt64&quot;</span><span>  </span><span class="hs-identifier">timesInt64#</span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-51"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_negateInt64&quot;</span><span> </span><span class="hs-identifier">negateInt64#</span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-52"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_quotWord64&quot;</span><span>  </span><span class="hs-identifier">quotWord64#</span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-53"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_remWord64&quot;</span><span>   </span><span class="hs-identifier">remWord64#</span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-54"></span><span>
</span><span id="line-55"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_and64&quot;</span><span>       </span><span class="hs-identifier">and64#</span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-56"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_or64&quot;</span><span>        </span><span class="hs-identifier">or64#</span><span>         </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-57"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_xor64&quot;</span><span>       </span><span class="hs-identifier">xor64#</span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-58"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_not64&quot;</span><span>       </span><span class="hs-identifier">not64#</span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-59"></span><span>
</span><span id="line-60"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_uncheckedShiftL64&quot;</span><span>   </span><span class="hs-identifier">uncheckedShiftL64#</span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-61"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_uncheckedShiftRL64&quot;</span><span>  </span><span class="hs-identifier">uncheckedShiftRL64#</span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-62"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_uncheckedIShiftL64&quot;</span><span>  </span><span class="hs-identifier">uncheckedIShiftL64#</span><span>  </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-63"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_uncheckedIShiftRA64&quot;</span><span> </span><span class="hs-identifier">uncheckedIShiftRA64#</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-64"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_uncheckedIShiftRL64&quot;</span><span> </span><span class="hs-identifier">uncheckedIShiftRL64#</span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-65"></span><span>
</span><span id="line-66"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_int64ToWord64&quot;</span><span>   </span><span class="hs-identifier">int64ToWord64#</span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-67"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_word64ToInt64&quot;</span><span>   </span><span class="hs-identifier">word64ToInt64#</span><span>   </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-68"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_intToInt64&quot;</span><span>      </span><span class="hs-identifier">intToInt64#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int64#</span><span>
</span><span id="line-69"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_int64ToInt&quot;</span><span>      </span><span class="hs-identifier">int64ToInt#</span><span>      </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Int64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Int#</span><span>
</span><span id="line-70"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_wordToWord64&quot;</span><span>    </span><span class="hs-identifier">wordToWord64#</span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word64#</span><span>
</span><span id="line-71"></span><span class="hs-keyword">foreign</span><span> </span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">ccall</span><span> </span><span class="hs-keyword">unsafe</span><span> </span><span class="hs-string">&quot;hs_word64ToWord&quot;</span><span>    </span><span class="hs-identifier">word64ToWord#</span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-identifier">Word64#</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-identifier">Word#</span><span class="hs-cpp">

#endif
</span><span>
</span><span id="line-75"></span></pre></body></html>